home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / indexf_1 / module1.bas < prev   
BASIC Source File  |  1999-09-05  |  6KB  |  185 lines
  1. Attribute VB_Name = "Module1"
  2. 'this is pretty hard ode to understand if u are a beginner...so i will make it brief
  3. Option Explicit
  4.  
  5. Function fnC8(ByVal p0012 As String) As Variant
  6. Dim l0014 As String 'this is a function that changes text into Alternative caps
  7. Dim l0016 As Integer
  8. Dim l0018 As Integer
  9. Dim l001A As String
  10. Dim l001C As String
  11. Let l0014$ = p0012
  12. Let l0016% = Len(l0014$)
  13. Do While l0018% <= l0016%
  14. Let l0018% = l0018% + 1
  15. Let l001A$ = Mid$(l0014$, l0018%, 1)
  16. Let l001A$ = UCase$(l001A$)
  17. Let l001C$ = l001C$ + l001A$
  18. Let l0018% = l0018% + 1
  19. Let l001A$ = Mid$(l0014$, l0018%, 1)
  20. Let l001A$ = LCase$(l001A$)
  21. Let l001C$ = l001C$ + l001A$
  22. Loop
  23. fnC8 = l001C$
  24. End Function
  25.  
  26. Function fn100(ByVal p0020 As String) As String
  27. Dim l0022 As String 'this is a function that changes the text to backwards
  28. Dim l0024 As Integer
  29. l0022$ = ""
  30. For l0024% = Len(p0020$) To 1 Step -1
  31. l0022$ = l0022$ + Mid$(p0020$, l0024%, 1)
  32. Next l0024%
  33. fn100$ = l0022$
  34. End Function
  35.  
  36. Function fn138(ByVal p002A As String) As Variant
  37. Dim l002C As String 'this is just an ascci function that changes the text into elie form
  38. Dim l002E As Integer
  39. Dim l0030 As Integer
  40. Dim l0032 As String
  41. Dim l0034 As String
  42. Dim l0036 As String
  43. Dim l0038 As Integer
  44. Let l002C$ = p002A
  45. Let l002E% = Len(l002C$)
  46. Do While l0030% <= l002E%
  47. DoEvents
  48. Let l0030% = l0030% + 1
  49. Let l0032$ = Mid$(l002C$, l0030%, 1)
  50. Let l0034$ = Mid$(l002C$, l0030%, 2)
  51. If l0034$ = "ae" Then Let l0034$ = "µ": Let l0036$ = l0036$ + l0034$: Let l0038% = 2: GoTo L1382
  52. If l0034$ = "AE" Then Let l0034$ = "╞": Let l0036$ = l0036$ + l0034$: Let l0038% = 2: GoTo L1382
  53. If l0034$ = "oe" Then Let l0034$ = "£": Let l0036$ = l0036$ + l0034$: Let l0038% = 2: GoTo L1382
  54. If l0034$ = "OE" Then Let l0034$ = "î": Let l0036$ = l0036$ + l0034$: Let l0038% = 2: GoTo L1382
  55. If l0038% > 0 Then GoTo L1382
  56. If l0032$ = "A" Then Let l0032$ = "/\"
  57. If l0032$ = "a" Then Let l0032$ = "σ"
  58. If l0032$ = "B" Then Let l0032$ = "▀"
  59. If l0032$ = "C" Then Let l0032$ = "╟"
  60. If l0032$ = "c" Then Let l0032$ = "ó"
  61. If l0032$ = "D" Then Let l0032$ = "╨"
  62. If l0032$ = "d" Then Let l0032$ = "≡"
  63. If l0032$ = "E" Then Let l0032$ = "╩"
  64. If l0032$ = "e" Then Let l0032$ = "Φ"
  65. If l0032$ = "f" Then Let l0032$ = "â"
  66. If l0032$ = "H" Then Let l0032$ = "]-["
  67. If l0032$ = "I" Then Let l0032$ = "í"
  68. If l0032$ = "i" Then Let l0032$ = "ε"
  69. If l0032$ = "k" Then Let l0032$ = "|ï"
  70. If l0032$ = "L" Then Let l0032$ = "|_"
  71. If l0032$ = "l" Then Let l0032$ = "ú"
  72. If l0032$ = "M" Then Let l0032$ = "|V|"
  73. If l0032$ = "m" Then Let l0032$ = "^^"
  74. If l0032$ = "N" Then Let l0032$ = "]\["
  75. If l0032$ = "n" Then Let l0032$ = "±"
  76. If l0032$ = "O" Then Let l0032$ = "╪"
  77. If l0032$ = "o" Then Let l0032$ = "║"
  78. If l0032$ = "P" Then Let l0032$ = "╢"
  79. If l0032$ = "p" Then Let l0032$ = "▐"
  80. If l0032$ = "R" Then Let l0032$ = "|2"
  81. If l0032$ = "r" Then Let l0032$ = "«"
  82. If l0032$ = "S" Then Let l0032$ = "º"
  83. If l0032$ = "s" Then Let l0032$ = "$"
  84. If l0032$ = "T" Then Let l0032$ = "»|»"
  85. If l0032$ = "t" Then Let l0032$ = "å"
  86. If l0032$ = "U" Then Let l0032$ = "┌"
  87. If l0032$ = "u" Then Let l0032$ = "╡"
  88. If l0032$ = "V" Then Let l0032$ = "\/"
  89. If l0032$ = "W" Then Let l0032$ = "VV"
  90. If l0032$ = "w" Then Let l0032$ = "vv"
  91. If l0032$ = "X" Then Let l0032$ = "X"
  92. If l0032$ = "x" Then Let l0032$ = "╫"
  93. If l0032$ = "Y" Then Let l0032$ = "Ñ"
  94. If l0032$ = "y" Then Let l0032$ = "²"
  95. If l0032$ = "!" Then Let l0032$ = "í"
  96. If l0032$ = "?" Then Let l0032$ = "┐"
  97. If l0032$ = "." Then Let l0032$ = "à"
  98. If l0032$ = "," Then Let l0032$ = "é"
  99. If l0032$ = "1" Then Let l0032$ = "╣"
  100. If l0032$ = "%" Then Let l0032$ = "ë"
  101. If l0032$ = "2" Then Let l0032$ = "▓"
  102. If l0032$ = "3" Then Let l0032$ = "│"
  103. If l0032$ = "_" Then Let l0032$ = "»"
  104. If l0032$ = "-" Then Let l0032$ = "ù"
  105. If l0032$ = " " Then Let l0032$ = "á"
  106. Let l0036$ = l0036$ + l0032$
  107.  
  108. L1382:
  109. If l0038% > 0 Then Let l0038% = l0038% - 1
  110. DoEvents
  111. Loop
  112. fn138 = l0036$
  113. End Function
  114.  
  115. Function fn170(ByVal p003E As String) As Variant
  116. Dim l0040 As String 'this is a function that changes text like 'hello' to H3LL0 (hacking or number text)
  117. Dim l0042 As Integer
  118. Dim l0044 As Integer
  119. Dim l0046 As String
  120. Dim l0048 As Integer
  121. Dim l004A As String
  122. Let l0040$ = p003E
  123. Let l0042% = Len(l0040$)
  124. Do While l0044% <= l0042%
  125. DoEvents
  126. Let l0044% = l0044% + 1
  127. Let l0046$ = Mid$(l0040$, l0044%, 1)
  128. If l0048% > 0 Then GoTo L1B62
  129. If l0046$ = "A" Then Let l0046$ = "4"
  130. If l0046$ = "a" Then Let l0046$ = "4"
  131. If l0046$ = "B" Then Let l0046$ = "8"
  132. If l0046$ = "b" Then Let l0046$ = "6"
  133. If l0046$ = "C" Then Let l0046$ = "C"
  134. If l0046$ = "c" Then Let l0046$ = "C"
  135. If l0046$ = "D" Then Let l0046$ = "D"
  136. If l0046$ = "d" Then Let l0046$ = "D"
  137. If l0046$ = "E" Then Let l0046$ = "3"
  138. If l0046$ = "e" Then Let l0046$ = "3"
  139. If l0046$ = "F" Then Let l0046$ = "F"
  140. If l0046$ = "f" Then Let l0046$ = "F"
  141. If l0046$ = "H" Then Let l0046$ = "H"
  142. If l0046$ = "h" Then Let l0046$ = "H"
  143. If l0046$ = "I" Then Let l0046$ = "1"
  144. If l0046$ = "i" Then Let l0046$ = "1"
  145. If l0046$ = "J" Then Let l0046$ = "J"
  146. If l0046$ = "j" Then Let l0046$ = "J"
  147. If l0046$ = "K" Then Let l0046$ = "K"
  148. If l0046$ = "k" Then Let l0046$ = "K"
  149. If l0046$ = "L" Then Let l0046$ = "L"
  150. If l0046$ = "l" Then Let l0046$ = "L"
  151. If l0046$ = "M" Then Let l0046$ = "M"
  152. If l0046$ = "m" Then Let l0046$ = "M"
  153. If l0046$ = "N" Then Let l0046$ = "N"
  154. If l0046$ = "n" Then Let l0046$ = "N"
  155. If l0046$ = "O" Then Let l0046$ = "0"
  156. If l0046$ = "o" Then Let l0046$ = "0"
  157. If l0046$ = "P" Then Let l0046$ = "P"
  158. If l0046$ = "p" Then Let l0046$ = "P"
  159. If l0046$ = "Q" Then Let l0046$ = "Q"
  160. If l0046$ = "q" Then Let l0046$ = "Q"
  161. If l0046$ = "R" Then Let l0046$ = "2"
  162. If l0046$ = "r" Then Let l0046$ = "2"
  163. If l0046$ = "S" Then Let l0046$ = "5"
  164. If l0046$ = "s" Then Let l0046$ = "5"
  165. If l0046$ = "T" Then Let l0046$ = "7"
  166. If l0046$ = "t" Then Let l0046$ = "7"
  167. If l0046$ = "U" Then Let l0046$ = "U"
  168. If l0046$ = "u" Then Let l0046$ = "U"
  169. If l0046$ = "V" Then Let l0046$ = "V"
  170. If l0046$ = "v" Then Let l0046$ = "V"
  171. If l0046$ = "W" Then Let l0046$ = "W"
  172. If l0046$ = "w" Then Let l0046$ = "W"
  173. If l0046$ = "X" Then Let l0046$ = "X"
  174. If l0046$ = "x" Then Let l0046$ = "X"
  175. If l0046$ = "Y" Then Let l0046$ = "Y"
  176. If l0046$ = "y" Then Let l0046$ = "Y"
  177. Let l004A$ = l004A$ + l0046$
  178.  
  179. L1B62:
  180. If l0048% > 0 Then Let l0048% = l0048% - 1
  181. DoEvents
  182. Loop
  183. fn170 = l004A$
  184. End Function
  185.